home *** CD-ROM | disk | FTP | other *** search
/ CPM Magazine / CPM MAG #01.DSK / LIT < prev    next >
Encoding:
Text File  |  1980-01-01  |  5.0 KB  |  133 lines
  1. RESET
  2. CLEAR
  3. SET TALK OFF
  4. STORE T TO menue
  5. USE titel
  6. DO WHILE menue
  7.    ERASE
  8.    @ 1,15 SAY ' LITERATUR-DATEI'
  9.    @ 3,10 SAY 'Klaus-Henning Hansen - 24.10.83'
  10.    @ 5,15 SAY ' HAUPT-MEN]'
  11.    @ 7,15 say '-----------------------------------'
  12.    @ 8,15 SAY 'T)ITEL AUFNEHMEN'
  13.    @ 10,15 SAY 'A)NSEHEN/ AUSGEBEN'
  14.    @ 12,15 SAY 'E)DITIEREN UND TITEL L\SCHEN'
  15.    @ 14,15 SAY 'S)ORTIEREN'
  16.    @ 16,15 say 'R)EPORT'
  17.    @ 18,15 SAY 'B)eenden/ Sicherheitskopie'
  18.    @ 19,15 SAY '----------------------------------'
  19.    @ 21,15 SAY 'Bitte w{hlen Sie eine Funktion aus'
  20.    WAIT TO antwort
  21.    DO CASE
  22.       CASE !(antwort)='R'
  23.            DO REPORT
  24.       CASE !(antwort)='T'
  25.          DO eingabe
  26.       CASE !(antwort)='A'
  27.          DO ausgabe
  28.       CASE !(antwort)='E'
  29.         ERASE
  30.         STORE '1' TO X
  31.         DO WHILE X<>'0'
  32.         ? '            Folgende Editierbefehle stehen zu Verf}gung:'
  33.    ? '--------------------------------------------------------------------'
  34.    ?
  35.    ? 'CTRL-C/R     CTRL-G     CTRL-Q      CTRL-V     CTRL-U     CTRL-W'
  36.    ? 'bl{ttern     l|sche    verlassen   einf}gen    l|sche   abspeichern'
  37.    ? 'vor/zur.     Zeichen  ohne [nder.              Record    mit [nder.'
  38.    ?
  39.    ACCEPT "WELCHE TITEL- # SOLL EDITIERT WERDEN? (mit RETURN ABBRUCH)" to X
  40.        EDIT &X
  41.        STORE '0' TO X
  42.        ENDDO
  43.        ERASE
  44.        @ 10,1 say ' Sollen markierte Records gel|scht werden (pack)? (J/N)'
  45.        @ 12,1 say '(Nur beim Kopieren von TITEL.DBF wird der File kleiner!)'
  46.        ?
  47.        WAIT to an
  48.        IF !(an)='J'
  49.           PACK
  50.        ENDIF
  51. CASE !(antwort)='S'
  52.       STORE T TO ww
  53.       STORE F TO abbruch
  54.       DO WHILE .NOT. abbruch
  55.          ERASE
  56.          @ 4,3 SAY '  Sortiert wird in einen neuen File. Der '
  57.          @ 5,3 SAY '  alte Database File wird zum BAK-File. '
  58.          @ 6,3 SAY '  Ist ausreichend Platz auf der Diskette?'
  59.          @ 7,3 SAY '-----------------------------------------'
  60.          @ 12,3 SAY 'N)ein, R}ckkehr zum Hauptmen}!'
  61.          @ 14,3 SAY 'S)ortierung nach AUTOR'
  62.          ?
  63.          WAIT TO wahl
  64.          IF !(wahl)='S'
  65.             ERASE
  66.             @ 10,15 SAY ' ***** BEIM SORTIEREN ! ****'
  67.             SORT ON autor TO sort
  68.             USE sort
  69.             COPY TO titel
  70.             USE titel
  71.             store t to abbruch
  72.          ELSE
  73.             STORE t TO abbruch
  74.          ENDIF
  75.        ENDDO
  76.       CASE !(antwort)='B'
  77.         ERASE
  78.         @ 12,10 say 'Soll LIT  wirklich verlassen werden? (J/N)'
  79.         ?
  80.         WAIT TO antwort
  81.         IF !(antwort)='J'
  82.            @ 16,10 SAY 'SICHERHEITSKOPIE DER TITEL-DATEI ANFERTIGEN? (J/N)'
  83.            ?
  84.            WAIT TO aw
  85.            IF !(aw)='J'
  86.               ERASE
  87.               @ 12,10 SAY '    DISKETTE IN DRIVE B: EINGELEGT?'
  88.               @ 14,10 SAY 'Zur Fortsetzung beliebige Taste druecken'
  89.               ?
  90.               WAIT
  91.               USE TITEL
  92.               COPY TO B:TITEL
  93.               @ 16,10 SAY '***** BEIM KOPIEREN *****'
  94.            ENDIF
  95.            ERASE
  96.            @ 12,10 SAY 'B)ETRIEBSSYSTEM'
  97.            @ 14,10 SAY 'D)BASE'
  98.            @ 16,10 SAY 'H)auptmenue?'
  99.            ?
  100.            WAIT TO ant
  101.            DO CASE
  102.               CASE !(ant)='D'
  103.                    RETURN
  104.               CASE !(ant)='B'
  105.                    QUIT
  106.               CASE !(ant)='H'
  107.                    LOOP
  108.               OTHERWISE
  109.                   LOOP
  110.            ENDCASE
  111.         ELSE
  112.           LOOP
  113.         ENDIF
  114.       OTHERWISE
  115.          LOOP
  116.       ENDCASE
  117. ENDDO
  118. K OFF
  119. STORE T TO menue
  120. USE titel
  121. DO WHILE menue
  122.    ERASE
  123.    @ 1,15 SAY ' LITERATUR-DATEI'
  124.    @ 3,10 SAY 'Klaus-Henning Hansen - 24.10.83'
  125.    @ 5,15 SAY ' HAUPT-MEN]'
  126.    @ 7,15 say '-----------------------------------'
  127.    @ 8,15 SAY 'T)ITEL AUFNEHMEN'
  128.    @ 10,15 SAY 'A)NSEHEN/ AUSGEBEN'
  129.    @ 12,15 SAY 'E)DITIEREN UND TITEL L\SCHEN'
  130.    @ 14,15 SAY 'S)ORTIEREN'
  131.    @ 16,15 say 'R)EPORT'
  132.    @ 18,15 SAY 'B)eenden/ Sicherheitskopie'
  133.    @ 19,15 SAY '------------------------------σσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσ